From: Stefan Monnier Date: Mon, 20 Apr 2009 16:17:51 +0000 (+0000) Subject: (rfc2047-decode-region): Don't skip past `start', which X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~787 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0b177f1f245d45cc7af5b95ea48e5f83dae51099;p=emacs.git (rfc2047-decode-region): Don't skip past `start', which could happen if the text is only composed of spaces and/or tabs. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b73dfffc48a..b58f86509ba 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2009-04-20 Stefan Monnier + + * rfc2047.el (rfc2047-decode-region): Don't skip past `start', which + could happen if the text is only composed of spaces and/or tabs. + 2009-03-03 Brian Sniffen (tiny change) * gnus-draft.el (gnus-draft-send): Bind gnus-message-setup-hook to nil diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index 6b774644102..c0bdec3c025 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el @@ -1045,7 +1045,7 @@ other than `\"' and `\\' in quoted strings." (setq start (point)) (setq quoted (eq (char-after) ?\")) (goto-char (point-max)) - (skip-chars-backward " \t") + (skip-chars-backward " \t" start) (if (setq quoted (and quoted (> (point) (1+ start)) (eq (char-before) ?\")))